#include <IE.au3>
#AutoIt3Wrapper_run_debug_mode=Y

$oIE = _IECreate('http://111.11.1.11:1111/defaultroot/login.jsp') ;进入登录界面
$oForm = _IEFormGetCollection($oIE, 0)

;MsgBox(0, "Form Info", $oForm.name)
_IEFormSubmit($oForm) ;因为用户名和密码已经被网页记住，所以直接提交
$oFrame = _IEFrameGetObjByName($oIE, "MainDesktop") ;AJAX方式加载新网页，处理其中的FRAME.
_IELoadWait($oFrame)
Sleep(3000)
$oLinks = _IELinkGetCollection($oFrame) ;获取FRAME中的全部链接。
For $oLink In $oLinks
	$sLinkText = _IEPropertyGet($oLink, "innerText")
	If StringInStr($sLinkText, "待办文件") Then
		_IELinkClickByText($oFrame, $oLink.innertext)) ;找到FRAME中的含有"待办文件"内容的链接并点击。
		ExitLoop
	EndIf
Next

;点击待批文件
$oFrame0 = _IEFrameGetObjByName($oIE, "mainFrame") ;AJAX在网页的另一FRAME中加载待批文件
列表
_IELoadWait($oFrame0) ;等待FRAME回迁完成
Sleep(3000)
$oFrame = _IEGetObjByName($oFrame0, "iframe1") ;frame中还套着FRAME，再找一下吧。
;MsgBox(0, "iframe1 Info", $oFrame.name)
$oLinks = _IELinkGetCollection($oFrame)
For $oLink In $oLinks
	$sLinkText = _IEPropertyGet($oLink, "innerText") ;找到FRAME中的所有链接
	If StringInStr($sLinkText, "等待您的办理") Then
		_IELinkClickByText($oFrame, $oLink.innertext) ;找到FRAME中的有"等待您的办理"的第一个链接并点击
		ExitLoop
	EndIf
Next

Sleep(3000)
$sTitle = WinGetTitle("[active]") ;等待新网页弹出

$oIE1 = _IEAttach($sTitle, "embedded")
Local $oInputs = _IETagNameGetCollection($oIE1, "textarea") ;找到输入框，写“同意”
$oInput = $oInputs(0)
$oInput.value = "同意"
$oSpans = _IETagNameGetCollection($oIE1, "span")

For $oSpan In $oSpans
	If StringInStr($oSpan.innertext, "发送") Then ;找到发送按钮，点击，这个按钮是用SPAN写的，真邪门。
		_IEAction($oSpan, "click")
	EndIf
Next

;点击确认窗口
Sleep(3000)
$sTitle = WinGetTitle("[active]")
$oIE2 = _IEAttach($sTitle, "embedded")
Local $oInputs = _IETagNameGetCollection($oIE2, "input")
For $oInput In $oInputs
	If StringInStr($oInput.value, "发送") Then ;又弹出一个网页对话框，还要点一下发送，这不是垃圾设计吗？
		_IEAction($oSpan, "click")
	EndIf
Next

;sleep(1000)

;处理模态窗体
WinWaitActive("来自网页的消息")
;WinWait("来自网页的消息")
ControlClick("来自网页的消息", "", "[CLASS:Button; Instance:1;]") ;又要处理一个对话框，垃圾设计啊。
_IEQuit($oIE)


